home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1995 #5 & #6 / Amiga Plus CD - 1995 - No. 5 and 6.iso / pd / netz / mailfilter / microdot / betreff-filter.mdmrexx next >
Text File  |  1994-06-29  |  2KB  |  92 lines
  1. /* Arexx-Script für MicroDot und MailFilter */
  2.  
  3. /*
  4. ** $VER: Betreff-Filter.mdmrexx 1.8 (29.6.94)
  5. **
  6. ** Übernimmt den Betreff der aktuellen Mail in den Betreff-Filter,
  7. ** vorangestellte 'Re:' oder 'Re^x:' werden entfernt. Dem Betreff
  8. ** wird dann jeweils ein '#?' oder '*' vorangestellt und angehängt.
  9. ** Im Betreff vorkommende Jokerzeichen werden durch Voranstellen
  10. ** eines Hochkommas ausgeschaltet. Nach erfolgreicher Übernahme
  11. ** in den Filter öffnet sich das Fenster und der gerade übernommene
  12. ** Betreff ist selektiert.
  13. **
  14. ** Betreff-Filter.mdmrexx muß nach 'MicroDot/Rexx' kopiert werden
  15. */
  16.  
  17. /* Ergebnisse anfordern */
  18.  
  19. OPTIONS RESULTS
  20.  
  21.  
  22.  
  23. /* Name des Screens auslesen */
  24.  
  25. GETMDPUBSCREENNAME
  26. screenname = result
  27.  
  28.  
  29.  
  30. /* Betreff auslesen */
  31.  
  32. GETCURRENTMAILHEADER BET
  33.  
  34. IF rc ~= 0 THEN EXIT(10)
  35.  
  36. betreff.pattern    = result
  37. betreff.emppattern = ''
  38. betreff.newsgroup  = ''
  39. betreff.mailtype   = ''
  40. betreff.action     = ''
  41.  
  42.  
  43.  
  44. /* Testen, ob MailFilter gestartet ist. Wenn nicht, dann jetzt starten */
  45.  
  46. IF ~SHOW(PORTS,'MAILFILTER') THEN DO
  47.    ADDRESS COMMAND
  48.    'run >NIL: <NIL: MAILFILTER:MailFilter'
  49.  
  50.    DO 3 WHILE ~SHOW(PORTS,'MAILFILTER')
  51.       'WaitForPort MAILFILTER'
  52.    END
  53.  
  54.    IF rc = 5 THEN DO
  55.       SAY 'Kann MailFilter nicht starten!'
  56.       EXIT(10)
  57.    END
  58. END
  59.  
  60.  
  61.  
  62. /* Aktuellen MicroDot-Screen einstellen */
  63.  
  64. ADDRESS MAILFILTER
  65.  
  66. GETATTR screen
  67.  
  68. IF result ~= screenname THEN DO
  69.    DEACTIVATE
  70.    SETATTR screen screenname
  71. END
  72.  
  73.  
  74.  
  75. /* Betreff in den Betreff-Filter übernehmen und das */
  76. /* Fenster auf dem aktuellen MicroDot-Screen öffnen */
  77.  
  78. ADDITEM TO subject STEM betreff CONVERT POPUP
  79.  
  80.  
  81.  
  82. /* Prefs speichern */
  83.  
  84. IF rc = 0 THEN
  85.    SAVE
  86.  
  87.  
  88.  
  89. /* Beenden */
  90.  
  91. EXIT(0)
  92.